home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / e / ddmoduls.lha / dd_Modules / dd_messages / dd_messages.e < prev    next >
Text File  |  1995-03-01  |  1KB  |  51 lines
  1. -> FOLD OPTS
  2. OPT MODULE
  3. -> ENDFOLD
  4. -> FOLD CONSTS
  5. EXPORT CONST NUM_MSG=4
  6. CONST MSG_MAXSIZE=256
  7. -> ENDFOLD
  8. -> FOLD OBJECTS
  9. EXPORT OBJECT messages PRIVATE
  10.   message[NUM_MSG]:ARRAY OF LONG
  11. ENDOBJECT
  12. -> ENDFOLD
  13.  
  14. -> FOLD new
  15. EXPORT PROC new() OF messages
  16.  
  17.   -> set messages
  18.   self.set(0,'InfraFace %lu.%lu © 1995-%lu by %s')
  19.   self.set(1,'%lu times per second')
  20.  
  21. ENDPROC
  22. -> ENDFOLD
  23. -> FOLD end
  24. EXPORT PROC end() OF messages IS EMPTY
  25. -> ENDFOLD
  26. -> FOLD format
  27. EXPORT PROC format() OF messages
  28.   DEF string[MSG_MAXSIZE]:STRING
  29.  
  30.   -> make filled-in strings
  31.   self.set(0,cloneStr(StringF(string,self.get(0),1,6,1995,'Leon Woestenberg')))
  32.  
  33. ENDPROC
  34. -> ENDFOLD
  35. -> FOLD set
  36. EXPORT PROC set(messagenum,message) OF messages
  37.   self.message[messagenum]:=message
  38. ENDPROC
  39. -> ENDFOLD
  40. -> FOLD get
  41. EXPORT PROC get(messagenum) OF messages IS self.message[messagenum]
  42. -> ENDFOLD
  43.  
  44. -> FOLD cloneStr
  45. PROC cloneStr(string)
  46.   DEF newstring
  47.   AstrCopy(newstring:=String(StrLen(string)+SIZEOF CHAR),string)
  48. ENDPROC newstring
  49. -> ENDFOLD
  50.  
  51.